home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / mail / YAM22.lha / YAM2.2 / Rexx / DeleteUnread.yam < prev    next >
Text File  |  2000-04-19  |  601b  |  19 lines
  1. /* DeleteUnread.yam  - Deletes all unread messages in the current folder  */
  2. /* $VER: DeleteUnread.yam 1.0 (12.03.00) © 2000 by M.Beck <mbeck@yam.ch>  */
  3. /* Requires YAM 2.0 or later                                              */
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS YAM
  7. FolderInfo STEM folder.                        
  8. ListSelect NONE                               
  9. found = 0
  10. DO i = 0 TO folder.TOTAL-1                      
  11.    MailInfo i STEM mess.                       
  12.    IF (mess.STATUS = 'N') | (mess.STATUS = 'U') THEN DO
  13.       ListSelect i
  14.       found = 1
  15.    END
  16. END
  17. IF found THEN MailDelete ATONCE
  18. EXIT
  19.